Przekrój ostrosłupa prawidlowego 
sześciokątnego płaszczyzną zawiera-
jącą krótszą przekątną podstawy.

Opracował: Piotr Leszczyński

POKAŻ PŁASZCZYZNĘ PRZEKROJU

Pole przekroju =

Obwód przekroju =

α

M

α

a = 4 (slider from 0.1 to 10, step 0.1)
h = 6 (slider from 0.1 to 10, step 0.1)
S: (0, 0, h)
p1 = true
p2 = true
p3 = true
A: (((-a)) / 2, ((-a) * sqrt(3) / 2))
B: ((-x(A)), y(A))
wielokąt1, f, g, i, j, k, l, C, D, E, F = Polygon(A, B, 6)
b, powierzchniaABS, powierzchniaBCS, powierzchniaCDS, powierzchniaDES, powierzchniaEFS, powierzchniaAFS, krawędźAS, krawędźBS, krawędźCS, krawędźDS, krawędźES, krawędźFS = Pyramid(wielokąt1, S)
m = Segment(A, D)
n = Segment(F, C)
p = Segment(B, E)
O = Intersect(p, m)
q = Segment(O, S)
α = 0.5759586531581288 rad (slider from 0 to 180°, step 1°)
r = Segment(C, A)
G = Intersect(r, p)
H = Intersect(n, p)
s = Ray(H, S)
h_1: (a / 2 * tan(α))
M: (0, 0, h_1)
β = Angle(H, G, M)
t = Segment(G, M)
c = Plane(A, C, M)
I = Intersect(krawędźDS, c)
J = Intersect(krawędźES, c)
K = Intersect(krawędźFS, c)
wielokąt2, a_1, c_1, i_1, j_1, k_1 = Polygon(A, C, I, J, K)
d = Segment(M, J)
e = Segment(K, I)
tekst3: "" + wielokąt2 + ""
tekst4: "" + (i_1 + j_1 + k_1 + a_1 + c_1) + ""
L = Intersect(krawędźBS, c)
f_1 = Segment(G, L)
γ = Angle(O, G, L)
N = Intersect(m, a_1)
t1, l_1, c_2, n_1 = Polygon(C, N, L)
tekst5: "" + t1 + ""
ε: tan(α)
ε_1: h / (a / 2)
tekst6: "" + (c_2 + l_1 + n_1) + ""
φ: atand(ε_1)